﻿open ProcessingFS
open System
type Sample () = 
    inherit PApp()
    override this.MousePressed () =
        this.Exit()

[<STAThread()>]
do
    let pApp = new Sample()
    pApp.Show()